(blink-cursor-start): Turn cursor off initially so blink

starts after blink-cursor-delay rather than 2*blink-cursor-delay.

diff --git a/lisp/frame.el b/lisp/frame.el
index 4a5b09ba68a2932277e605c435660171534bde9b..85b3270a077e8d0bf9bc08bd5e02edece7b51579 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1297,6 +1297,7 @@ if appropriate.  It also arranges to cancel that timer when the next
 command starts, by installing a pre-command hook."
   (when (null blink-cursor-timer)
     (add-hook 'pre-command-hook 'blink-cursor-end)
+    (internal-show-cursor nil nil)
     (setq blink-cursor-timer
          (run-with-timer blink-cursor-interval blink-cursor-interval
                          'blink-cursor-timer-function))))